# Initialize graphics package
library(ggplot2)

# Get data into memory
metros <- read.csv("Poland EU referendum results by metro.csv")

# Figure 1
ggplot(data = metros, mapping = aes(x = age, y = 100*No/Valid, alpha = I(0.1))) +
  geom_smooth(method = "lm") + geom_smooth(se = FALSE, linewidth = 0.5, linetype = 2, colour = "#AA0000") +
  theme_minimal() +
  xlab("Age of oldest local Polish association, years") +
  ylab("Percent vote against EU accession")